home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / arug / arug 12 / rtty / readme (.txt) < prev    next >
AmigaBASIC Source Code  |  1994-01-27  |  2KB  |  45 lines
  1. CLEAR, 15000,5000:DIM a$(250):BREAK ON
  2. PALETTE 0,1,1,1
  3. PALETTE 1,0,0,0
  4. WINDOW 3,,,16 
  5. WINDOW 2,,,16
  6. ON BREAK GOSUB stop.:ON ERROR GOTO error.
  7. w=2:LOCATE 10,30:PRINT"LOADING DOCUMENT"
  8. OPEN "rtty.doc" FOR INPUT AS#1
  9. WHILE NOT EOF(1):LINE INPUT #1,a$:a$(n)=a$:n=n+1
  10. WEND:CLS:tn=n:n=0
  11. LINE(1,180)-(630,196),2,bf:COLOR 0,1:LOCATE 24,3:PRINT"WAIT";:COLOR 1,0
  12. 10 LOCATE 1,1:FOR n=n TO n+20:PRINT a$(n):NEXT:GOTO next.page
  13.  
  14. mousetrap:
  15. WHILE MOUSE(0)<>0:WEND:WHILE MOUSE(0)=0:SLEEP:WEND
  16. m1=MOUSE(1):m2=MOUSE(2):IF m2>172 THEN
  17.   IF m1>567 AND m1<585 THEN quit
  18.   IF m1>383 AND m1<401 THEN previous.page    
  19.   END IF
  20. IF n=>tn THEN mousetrap
  21.  
  22. next.page:p=n/21:LOCATE 22,35:PRINT"Page";p
  23. LINE(1,180)-(630,196),2,bf:COLOR 0,1:LOCATE 24,3:PRINT"WAIT";
  24. COLOR 1,0:LOCATE 1,1
  25. IF w=2 THEN w=3:WINDOW 2:GOTO loop
  26. IF w=3 THEN w=2:WINDOW 3
  27.  
  28. loop:WINDOW OUTPUT w:CLS:
  29. LINE(1,180)-(630,196),2,bf:COLOR 0,1
  30. LOCATE 24,3:PRINT"WAIT";:COLOR 1,0:LOCATE 1,1                       
  31. FOR n=n TO n+20:PRINT a$(n):NEXT:p=n/21:LOCATE 22,35:PRINT"Page";p
  32. IF w=2 THEN WINDOW OUTPUT 3 :ELSE WINDOW OUTPUT 2   
  33. LOCATE 24,1:COLOR 0,1
  34. PRINT"CLICK FOR NEXT PAGE -OR- CLICK IN SQUARE FOR -     PREVIOUS PAGE          QUIT";
  35. LINE(384,184)-(400,192),,b:LINE(568,184)-(584,192),,b:COLOR 1,0
  36. GOTO mousetrap  
  37.  
  38. previous.page:
  39. IF n<63 THEN mousetrap
  40. n=n-63:WINDOW OUTPUT 3:CLS:WINDOW OUTPUT 2:CLS:w=2:WINDOW 2:GOTO 10
  41.  
  42. quit:WINDOW CLOSE 2:WINDOW CLOSE 3:SCREEN CLOSE 1:SYSTEM
  43. stop.:CLEAR:WINDOW CLOSE 3:WINDOW CLOSE 2:WINDOW OUTPUT 1:LIST:END:RETURN
  44. error.:WINDOW CLOSE 3:WINDOW CLOSE 2:WINDOW OUTPUT 1:ON ERROR GOTO 0
  45.